﻿
Public Class CTDecalogData

 Private _valorBuscado  As String 
 Private _valorCorres   As String 
 Private _esEditableNuevo As Boolean 


 Public Sub new (ByVal valorBuscado As String, ByVal valorCorres As String)
    _valorBuscado   = valorBuscado
    _valorCorres    = valorCorres
    _esEditableNuevo = False 
 End Sub



 Public Sub new (ByVal valorBuscado As String, ByVal valorCorres As String,ByVal esEditable As Boolean)
    _valorBuscado   = valorBuscado  
    _valorCorres  = valorCorres 
    _esEditableNuevo = esEditable 
 End Sub


 Public Sub new (ByVal esEditable As Boolean )
    _valorBuscado = ""
    _valorCorres  = ""
    _esEditableNuevo = esEditable
 End Sub


 Public Sub new ()
     _valorBuscado = ""
     _valorCorres  = ""
     _esEditableNuevo = False 
 End Sub


 
Public Property ValorBuscado() As String
    Get
        Return _valorBuscado
    End Get
    Set(ByVal value As String)
        _valorBuscado = value
    End Set
End Property


Public Property ValorCorres() As String
    Get
        Return _valorCorres
    End Get
    Set(ByVal value As String)
        _valorCorres = value
    End Set
End Property



Public Property EsEditableNuevo() As String
    Get
        Return _esEditableNuevo
    End Get
    Set(ByVal value As String)
        _esEditableNuevo = value
    End Set
End Property






End Class
